home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / wb / THE.lha / T.H.E. / Install < prev    next >
Encoding:
Text File  |  1999-10-27  |  7.3 KB  |  219 lines
  1. ; $VER: Installer script for RA_THE 1.0 (24.10.99) © 1999 by Nils Görs
  2.  
  3. ; ENGLISH
  4. (procedure english (
  5.     (set #install-msg  "\n\nThis Script installs the Workbench Hotkey-and Toolsmenu Editor to your system.")
  6.     (set #bad-lib "You must have workbench.library v44 (OS3.5) to run T.H.E..")
  7.     (set #copytxt "Copy T.H.E and the icon.")
  8.     (set #copytxt2 "\nCopy the example script and the icon to your WBStartup. If you don't use the new Workbench Hotkey and Tools-Menu options i recommend to install this script")
  9.     (set #copytxt3 "Would you like to copy the documentation?\n")
  10.     (set #askwirklich "\nYou agree?")
  11.     (set #seldir "Please select the destination drawer.")
  12.     (set #selfiles "Please select files to copy.\n")
  13. ))
  14.  
  15. ; DEUTSCH
  16. (procedure deutsch (
  17.     (set #install-msg  "\n\nDieses Skript installiert den\nWorkbench Hilfmittel-& Tastenbefehl-Voreinsteller auf Ihre Festplatte.")
  18.     (set #bad-lib "Sie benötigen workbench.library v44 (OS3.5) um\nT.H.E. nutzen zu können.")
  19.     (set #copytxt "Kopiere jetzt T.H.E. und das Piktogramm.")
  20.     (set #copytxt2 "\nKopiere jetzt das Beispielskript und das dazugehörige Piktogramm in die WBStartup. Falls Sie noch keine Workbench-Tastenbefehle (Hotkeys) und/oder das Hilfsmittelmenü (Tools-Menu) eingerichtet haben sollten, empfehle ich Ihnen diesen Schritt durchzuführen.")
  21.     (set #copytxt3 "Möchten Sie die Dokumentation kopieren?\n")
  22.     (set #askwirklich "\nMöchten Sie das?")
  23.     (set #seldir "Bitte wählen Sie ein Zielverzeichnis.\n")
  24.     (set #selfiles "Bitte wählen Sie die Dateien aus, die kopiert werden sollen.\n")
  25. ))
  26.  
  27. ; SUOMI
  28. (procedure suomi (
  29.     (set #install-msg  "\n\nTämä skripti asentaa Workbenchin pikanäppäimien ja työkaluvalikon muokkausohjelman (T.H.E.) laitteistoosi.")
  30.     (set #bad-lib "Workbench.library v44 (OS3.5) tarvitaan T.H.E:n suorittamiseen..")
  31.     (set #copytxt "Kopioi T.H.E ja ikoni.")
  32.     (set #copytxt2 "\nKopioi malliskripti ja ikoni WBStartup-hakemistoosi. Jos et käytä Workbenchin uusia pikanäppäin- ja valikkomenutoimintoja, skriptin asentaminen on suositeltavaa.")
  33.     (set #copytxt3 "Kopioidaanko ohjetiedostot?\n")
  34.     (set #askwirklich "\nSamaa mieltä?")
  35.     (set #seldir "Ole hyvä ja valitse kohdehakemisto.")
  36.     (set #selfiles "Ole hyvä ja valitse kopioitavat tiedostot.\n")
  37. ))
  38.  
  39. ; NORSK
  40. (procedure norsk (
  41.     (set #install-msg  "\n\nDette skriptet installerer Workbench hurtigtast og verktøymeny editoren(T.H.E) på ditt system.")
  42.     (set #bad-lib "Du må ha workbench.library v44 (OS3.5) for å bruke T.H.E..")
  43.     (set #copytxt "Kopiere T.H.E og ikon.")
  44.     (set #copytxt2 "\nKopiere eksempel skript og ikon til WBStartup. Hvis du ikke bruker de nye Workbench hurtigtast og verktøymeny opsjonene anbefales det at du installerer dette skriptet")
  45.     (set #copytxt3 "Vil du kopiere dokumentasjonen?\n")
  46.     (set #askwirklich "\nEr du enig?")
  47.     (set #seldir "Vennligst velg målskuff.")
  48.     (set #selfiles "Vennligst velg filer som skal kopieres.\n")
  49. ))
  50.  
  51. ; PORTUGUÊS
  52. (procedure português (
  53.     (set #install-msg  "\n\nEste script instala o Editor de atalhos e do menu de ferramentas do Workbench no seu sistema.")
  54.     (set #bad-lib "É necessária a workbench.library v44 (OS3.5) para correr o T.H.E..")
  55.     (set #copytxt "Copia o T.H.E. e o ícone.")
  56.     (set #copytxt2 "\nCopia o script de exemplo e o ícone para o seu directório WBStartup. Se não utiliza as novas opções do Editor de atalhos e do menu de ferramentas do Workbench eu recomendo que instale este script")
  57.     (set #copytxt3 "Quer copiar a documentação?\n")
  58.     (set #askwirklich "\nConcorda?")
  59.     (set #seldir "Por favor seleccione a gaveta de destino.")
  60.     (set #selfiles "Por favor seleccione os ficheiros a copiar.\n")
  61. ))
  62.  
  63. ; PORTUGUÊS
  64. (procedure português (
  65.     (set #install-msg  "\n\nEste script instala o Editor de atalhos e do menu de ferramentas do Workbench no seu sistema.")
  66.     (set #bad-lib "É necessária a workbench.library v44 (OS3.5) para correr o T.H.E..")
  67.     (set #copytxt "Copia o T.H.E. e o ícone.")
  68.     (set #copytxt2 "\nCopia o script de exemplo e o ícone para o seu directório WBStartup. Se não utiliza as novas opções do Editor de atalhos e do menu de ferramentas do Workbench eu recomendo que instale este script.")
  69.     (set #copytxt3 "Quer copiar a documentação?\n")
  70.     (set #askwirklich "\nConcorda?")
  71.     (set #seldir "Por favor seleccione a gaveta de destino.")
  72.     (set #selfiles "Por favor seleccione os ficheiros a copiar.\n")
  73. ))
  74.  
  75. ; NEDERLANDS
  76. (procedure nederlands (
  77.     (set #install-msg  "\n\nDit script installeert de Workbench sneltoetsen gereedschapsmenubewerker op uw systeem.")
  78.     (set #bad-lib "U moet workbench.library v44 (OS3.5) hebben om T.H.E. te kunnen gebruiken.")
  79.     (set #copytxt "Kopiëer T.H.E en het icoon.")
  80.     (set #copytxt2 "\nKopiëer het voorbeeldscript en het icoon naar uw WBStartup. Indien u de nieuwe Workbench sneltoets- en gereedschapsmenuopties niet gebruikt raad ik u aan dit script te installeren.")
  81.     (set #copytxt3 "Wilt u de documentatie kopiëren?\n")
  82.     (set #askwirklich "\nGaat u akkoord?")
  83.     (set #seldir "Selecteer AUB de bestemmingsdirectory.")
  84.     (set #selfiles "Selecteer AUB bestanden om te kopiëren.\n")
  85. ))
  86.  
  87. (if (= @language "english") (english))
  88. (if (= @language "deutsch") (deutsch))
  89. (if (= @language "suomi") (suomi))
  90. (if (= @language "norsk") (norsk))
  91. (if (= @language "português") (português))
  92. (if (= @language "nederlands") (nederlands))
  93.  
  94.  
  95. (if (< (/ (getversion "workbench.library" (resident)) 65536) 44) ((abort #bad-lib)))
  96.  
  97. (message #install-msg)
  98.  
  99. (set @dest-dir (askdir
  100.         (prompt #seldir "\n" #copytxt "\n")
  101.         (help @askdir-help)
  102.         (default "Sys:Prefs")
  103.             )
  104. )
  105.  
  106. (copyfiles
  107.     (prompt #selfiles "\n")
  108.     (help @copylib-help)
  109.     (source "prefs/")
  110.     (files)
  111.     (all)
  112.     (infos)
  113.     (dest @dest-dir)
  114.     (confirm)
  115. )
  116.  
  117. (procedure @askcopy
  118.     (askbool
  119.         (prompt #copytxt2 "\n" #askwirklich)
  120.         (help @askbool-help)
  121.     )
  122. )
  123.  
  124. (if (> (@askcopy) 0)
  125. (
  126.     (set @dest-dir (askdir
  127.             (prompt #seldir "\n")
  128.             (help @askdir-help)
  129.             (default "Sys:WBStartup")
  130.             )
  131.     )
  132.  
  133.     (copyfiles
  134.         (prompt #selfiles "\n")
  135.         (help @copylib-help)
  136.         (source "wbstartup/")
  137.         (all)
  138.         (files)
  139.         (dest @dest-dir)
  140.         (confirm)
  141.     )
  142. ))
  143.  
  144. (procedure @askcopy
  145.     (askbool
  146.         (prompt #copytxt3)
  147.         (help @askbool-help)
  148.     )
  149. )
  150.  
  151. (if (> (@askcopy) 0)
  152. (
  153.     (set @dest-dir (askdir
  154.             (prompt #seldir "\n")
  155.             (help @askdir-help)
  156.             (default "HELP:")
  157.             )
  158.     )
  159.     (set #scr_name (tackon "docs/" @language))
  160.  
  161.     (if (exists (tackon #scr_name "the.guide"))
  162.     (
  163.         (copyfiles
  164.             (help @copylib-help)
  165.             (source (tackon #scr_name "the.guide"))
  166.             (files)
  167.             (dest @dest-dir)
  168.         )
  169.     )
  170.         (message "Sorry, there is no " @language " documentation available at the moment!")
  171.     )
  172. ))
  173.  
  174. (if (NOT (= @language "english")) 
  175. (
  176.     (set #src_name
  177.         (tackon "Catalogs/" @language)
  178.     )
  179.     (set #dst_name
  180.         (tackon "LOCALE:" #src_name)
  181.     )
  182.     (set #src_name
  183.         (tackon #src_name "the.catalog")
  184.     )
  185.  
  186.     (if (exists #src_name (noreq))
  187.     (
  188.         (copyfiles
  189.             (help @copyfiles-help)
  190.             (prompt #installing #src_name)
  191.             (source #src_name)
  192.             (dest #dst_name)
  193.             (confirm)
  194.         )
  195.     )
  196.         (message "Sorry, there is no " @language " catalog available at the moment!")
  197.     )
  198. )
  199. )
  200.  
  201. ; Installing AWNPipe
  202. (copylib
  203.     (source "l/awnpipe-handler")
  204.     (dest "l:")
  205.     (prompt #installing "AWNPipe-handler")
  206.     (help @copyfiles-help)
  207.     (confirm)
  208. )
  209. (copyfiles
  210.     (source "devs/dosdrivers")
  211.     (dest "Devs:dosdrivers")
  212.     (choices "awnpipe" "awnpipe.info")
  213.     (prompt #installing "AWNPipe:")
  214.     (help @copyfiles-help)
  215.     (confirm)
  216. )
  217.     (run "C:assign AWNPipe: dismount")
  218.     (run "C:mount AWNPipe:")
  219.